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QUEING TCJ01/TU55 DECTAPE ROUTINES 


DECUS Program Library Write-up DECUS NO. 8-393 

New TC01/TU55 DECtape Routines: 

These routines, which are a much modified version of DEC-08-FUBO 
(previously DEC-08-31U), provide the user with the ability to read 
and write 128 words (one memory page) from/onto standard 129 word DEC¬ 
tape blocks. Successive blocks are transferred into/from successive 
128 word areas of memory. The routines will transfer into/from any 
memory field, will begin searching in either the forward or the reverse 
direction for the DECtape block at which the transfer will begin, and 
will queue one read/write request to keep the DECtape in motion (and 
transferring data) as continuously as possible. 

The only restrictions placed on these routines is that they must 
be located in field 0 of memory and that they will read and write in 
the forward direction only. Also, as with other DECtape routines, they 
cannot transfer data across field boundaries, i.e. location 7777 of a 
field is followed by location 0 of the same field. 

Areas of application for these routines: 

These routines can be used to advantage in any program which 
processes data which is read from or written onto DECtape at a higher 
rate than the average transfer rate of DECtape transfer. The process¬ 
ing rate, when compared to the maximum DECtape transfer rate of about 
7.5 Kwps, falls into three categories: 

( 
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1. Whenever the processing rate is always higher than the trans¬ 
fer rate, these routines can keep the DECtape in continuous motion, 
causing the actual transfer rate to approach the maximum rate, and allow¬ 
ing the data on one complete DECtape to be transferred and processed in 
about 1 minute. This can be particularly important when only a small 

area of memory is available for DECtape buffers, because other routines 

* 

would then need a considerable amount of time to search for the start 
block for the transfer, decreasing the average transfer rate by as much 
as a factor of 13. 

2. Whenever the processing rate is lower than the maximum rate 
of the DECtape but greater than the average rate (which includes the 
time spent searching for the transfer start block), using these routines 
in conjunction with multiple (more than 2) buffers can raise the average 
rate (compared to the average rate of other routines) as much as is 
needed for maximum efficiency in the program. Note that more than 2 
buffers are needed in order that there be sufficient buffer space; after 
one buffer is filled, for the routines to search for the transfer start 
block in case the DECtapes have stopped. Since these routines will 
queue a request, the actual size of the buffers is not necessarily 
important and several small buffers may work better than 1 or 2 large 
buffers. 

3. Whenever the processing rate is lower than the average transfer 
rate of the DECtape (when using other routines) but may include high 
peak rates, the technique of using several small buffers may be used 

to advantage as described above. 
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The disadvantages of using these routines, when compared to other 
DECtape routines in usage, is that they do not attempt to re-try a 
read or write when an error occurs and that they require about 11/4 
pages of core. The last disadvantage is somewhat lessened by the 
ability of the routines to handle small buffers. 


Calling sequences: 

These routines consist of several subroutines. Of these, two 
(RW128 and DWAIT) have direct use in user programs and two others 
(DTRAR and DTXAR) may have usage in special instances. 

Subroutine RW128: 

This subroutine is the Read/Write subroutine which controls DECtape 
transfers. It has a calling sequence: 

. JMS (RE128) /Effective JMS to RW128 

CORE /Start address in memory for the transfer 

USFW /Unit, Search, Field and Write (see below) 

BLKNO /DECtape block number at which transfer starts 

-BLKS / -(Number of DECtape blocks to transfer) 

Return here with DECtape in motion 

The control word, USFW, is divided into the following fields: 

U (Bits 0-2) = DECtape unit number, 0 (for 8) through 7 

S (bit 3) = Search start direction. 0 to start in reverse, 

1 to start forward. (Xfer always forward.) 

F (Bits 6-8) = Field of memory for the data transfer. 

W (Bit 9) = Write or read. 1 for write, 0 for read. 

The search direction bit, S, allows the program to specify the 
direction in which the DECtape should begin moving when it is search¬ 
ing for BLKNO. This can save some time when the desired direction is 
known. 
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When program control returns from the subroutine, a DECtape will 
be in motion and the AC will be cleared (= 0). The state of the Link 
is uncertain. The DECtape unit in motion at the time that program 
control returns may or may not be the same unit just requested. Further¬ 
more, the unit may be performing one of the following three functions: 
a) searching for BLKNO on the unit just specified, b) transferring data 
as specified by the last request made to the program, or c) transferr¬ 
ing data as specified by this request. Due to this fact, a small 
amount of care must be exercised when using these routines, as will be 
described in the section on usage. 

Subroutine DWAIT: 

This subroutine is used by a calling program (and also by RW128) 
to find the current status of the DECtape and RW128 queue. Control 
will not return will not return to the calling program until one of 
two conditions is true. The desired condition is determined by the 
setting of the Link when the subroutine is called (the AC should be 
cleared). If the Link is set (a 1), control will return when (if) 
no DECtape is in motion. If the Link is clear (a 0), control will 
return when (if) either no DECtape is in motion or the queue in RW128 
is empty. This subroutine has a calling sequence: 

STL or CLL /SeT Link or CLear Link 

JMS (DWAIT) /Effective JMS to DWAIT 

Return here when specified condition true (AC = 0) 




Subroutine DTRAR: 


This subroutine checks the motion bit in the DECtape A (command) 

register and returns to the calling address+1 if the bit is a 0 (no 

0 

DECtape in motion) or to the calling address+2 if the bit is a 1 (a 
DECtape is in motion); It has a calling sequence: 

JMS (DTRAR) /Effective JMS to DTRAR, AC = 0 ' 

Return here if no DECtape in motion (AC = 0) 

Return here if a DECtape is in motion (AC = 0) 

This subroutine should be called with the AC cleared and returns 
with the AC cleared and the Link undisturbed. It can be used by a 
program to determine the status of the DECtape control. 

Subroutine DTXAR: 

This subroutine reads the DECtape A (command) register, masks 
the AC (by an AND) with the contents of the calling address+1, issues 
the DTXA iot command (which exclusive-ors the contents of the AC with 
the contents of the A register), and then returns to the calling 
address+2 with the AC clear. Any bits set in the AC when the sub¬ 
routine is called will be inclusive or'ed with the contents of the 
DECtape A register (the read) before masking. This subroutine has a 
calling sequence: 

JMS (DTXAR) /Effective JMS to DTXAR 

MASK /Mask for AC or’ed with A register. 

Return here with AC cleared. 

This subroutine, with a mask of 200 (octal), will stop any DECtape 
unit which is in motion. This can be used in a program when something 
occurs which requires that the DECtape stop immediately. Any request 
left in the queue in RW128 will be ignored after this is done. 
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Usage of the routines: 

Usage of this routine is somewhat similar to that described for 
its parent in the DEC writeup. If the user is unfamiliar with this 
routine, it is suggested that he read the writeup available from DEC. 

This routine requires three symbols to be defined on page 0 of 
memory (field 0). These three symbols are MCOM, DIS, and DTERR. 

MCOM is used by the DECtape interrupt handling routines to point 
to the current entry point in the interrupt handler. It must be 
defined by the user in his program but is initialized by the routine. 
Its usage by the user is described in the DEC writeup. DIS must be 
a pointer to the user's interrupt dismiss routine. This is also 
described in the DEC writeup. DTERR must be a pointer to the user’s 
DECtape error processing routine. When a DECtape error occurs, the 
routines stop the DECtape, load the AC with the contents of the DEC¬ 
tape B (status) register, and then execute a JMP I DTERR. Unlike the 
DEC version, the status (errors) will be undisturbed in the B register 
also. A few more comments on error processing will follow shortly. 

Unlike the DEC routines, this routine does NOT include an ION 
instruction to enable the program interrupt. It is important that 
the user program enable the interrupt shortly after the first time 
that the routine is called. If it is a problem that the ION is not 
included, there is room to add this one instruction in the subroutine 
labeled DSSET, which sets up a search for BLKNO. 

In some programs it may be necessary to process a DECtape error 
with the program interrupt on (as in the case of buffered Teletype 




7. 


output). If it is desired to do this, it is necessary to make a small 
change in the interrupt skip chain to properly ignore an illegal DEC- 
tape flag. This illegal flag is caused by the DTXA instruction which 
stops the DECtape unit. In the case of a select error (which is caused 
by either selecting an off-line unit or by trying to write on a write- 
locked unit), this DTXA instruction will cause the error to occur again. 
Simply checking for a DECtape flag (with a DTSF) to determine the device 
which caused an interrupt will cause the program to go to the DECtape 
interrupt handler with possible disastrous results. To solve this 
problem, the DTXA instruction which stops the unit also clears the 
bit in the DECtape A register which allows the DECtape flag to cause a 
program interrupt. The interrupt skip chain should therefore check this 
bit before going to the DECtape handler. An example follows: 


/Save the AC and Link after the interrupt... 

DTSF /is the DECtape flag setf 

JMP .+5 /No, try the next device 

DTRA /Yes, is control connected to P.1.7 

AND P4 / C(P4) = 4 

SZA CLA /if AC = 0, not connected, try next device 

JMP I MCOM /All OK, go handle DECtape interrupt 

... /Continue with device identification routine 

This modified routine will properly handle "true" DECtape interrupts 
while ignoring the flag if it could not have caused the interrupt. 

Because RW128 will queue a DECtape read/write request, care must 
be used to keep from using a buffer before the transfer into or out 
of it is finished. The table on the following page shows the possible 
functions that can be in progress after repeated calls to RW128 and to 
DWAIT. It is suggested that the user read and attempt to understand the 
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table before using the routine. The following words are used in the table 


SEARCH 

Signifies that the routine is searching the DECtape 


for BLKNO. 

XFER 

Signifies that a data transfer (read/write) is taking 
place. 

Q 

Signifies that the Queue in RW128 (which has a depth 
of one request) is full. If it is necessary for 

RW128 to perform a SEARCH for a specified request, 
the Queue will remain full until the actual XFER 
begins for that request. 

Q 

Signifies that the Queue in RW128 is empty. 

n-1, n, n+1, 

Signify the number of the current request. In each 
of the examples shown, the current request is number 
n, the last request is n-1, etc. 


Should there be any questions about the routine or its use, I will 
do what I can to be of help. 

Jim Crapuchettes 
Stanford Electronics Labs 
Stanford, Calif. 


i 
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Use of RWl 28: 

"(wait)" means that program control did not return from the 
routine immediately 

Function 

Status of DECtape & Queue 

before call —> 

STOP, Q SEARCH, Q, n-1 XFER, O’, n-1 

JMS RWl 28 

• (n) 

• 

(wait) 

• 

• 

on return —>■ 

CLL 

JMS DWAIT 

SEARCH,Q,n XFER,Q,n-l XFER, Q, n-1 

on return —> 

(note that status 
is same in all cases.) 

XFER,Q,n XFER,Q,n XFER, Q,n 

before call —> 

STOP,Q SEARCH,Q,n-1 XFER,Q, n-1 

JMS RWl 28 
• (n) 

(wait) 

• 


• 


• 

on return —•> 

SEARCH, Q,n XFER,Q,n-l XFER,Q,n-l 


JMS RWl 28 
. (n+1) 

• 

(wait) (wait) (wait) 

• 


• 

on return —> 

• 

XFER,Q,n XFER,Q,n XFER,Q,n 

• 

• 

JMS RWl 28 

• (n+2) 

• 


• 

• 

on return —> 

XFER, Q, n+1 XFER, Q, n+1 XFER, Q, n+1 
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RU128* QUEING DECTAPE ROUTINES: SOURCE* BIN & LISTING 15 OCT 1970 


NAME 

BLK# 

BLKS 

S.A. 

CORE LOCS 


INDEX 

7777 

8 

7777 

07400-07577 


START 

0007 

9 

7667 

07400-07577 


UPDATE 

0020 

7 

7600 

06000-07577 


CHANGE 

0027 

5 

7600 

06400-07577 


GETSYS 

0034 

5 

7600 

06200-07377 


XSYS 

0041 

13 

7667 

04400-07577 


XEDIT 

0056 

11 

0147 

00000-02577 


XPAL 

0071 

31 

0200 

00000-07577 


XLOAD 

0130 

5 

7200 

06400-07577 


XMOVE 

013S 

11 

0200 

00000-02577 


XINDEX 

0150 

9 

0200 

00000-02177 


XODT8 

0161 

3 

7000 

07000-07577 


XL I ST 

0164 

12 

0200 

00000-02777 


XDUP 

0200 

4 

0200 

00000-00777 


XTAPE 

0204 

24 

0177 

00000-05777 


DECU31 

0234 

12 

7667 

07400-07577 


SRWTAP 

0250 

20 

7667 

07400-07577 


CONVT 

0274 

31 

0200 

00000-07577 


SRW128 

0333 

30 

7667 

07400-07577 

Source file 

BRU128 

0371 

6 

7667 

07400-07577 

Binary file 

LRU 128 

0377 

50 

7667 

07400-07577 

Listing file 

RW128T 

0461 

3 

7667 

• 00000-00577 

Test program 


NUMBER OF FILES: 21 

NEXT FREE BLOCK: 0464 
NEXT FREE VORD: 6236 
VORDS LEFT: 0341 
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0001 



/NEW DECTAPE ROUTINES: 

WILL QUEUE ONE REQUEST TO 

0002 



/ KEEP 

A DECTAPE IN MOTION IF POSSIBLE. 

0003 



/JIM CRAPUCHETTES, STANFORD UNIVERSITY, AUG 1970 

0004 



/ 



0005 



/CALLING SEQUENCE: 


0006 



/ 

JMS RW128 

(EFFECTIVE) 

0007 



/ 

CORE START ADDR FOR DATA XFER 

0008 



/ 

USFW U (BITS 

0-2) = UNIT # 

0009 



/ 

S (BIT 

3) = SEARCH DIRECTION. 0 TO 

0010 



/ 

START 

IN REVERSE, 1 FOR FORWARD. 

0011 



/ 

F (BITS 

6-8) = DATA FIELD 

0012 



/ 

W (BIT 

9) = READ (0) OR WRITE (1) 

0013 



/ 

BLKNO START BLOCK # 

0014 



/ 

-BLKS -NUMBER 

OF BLKS TO XFER 

0015 



/ 

RETURN HERE WITH DECTAPE IN MOTION. 

0016 



/NOTE: 

'•-BLKS M MUST BE 

THE LAST ITEM IN THE CALLING 

0017 



/ SEQUENCE BECAUSE IT IS USED TO SIGNIFY SOMETHING 

0018 



/IN THE QUEUE. 


0019 






0020 

0200 

0000 

RW128, 

0 /READ OR WRITE 128 WORD BLOCKS 

0021 

0201 

7300 


CLA CLL 


0022 

0202 

4763 


JMS I DRWAIT 

/WAIT FOR ROOM IN QUEUE 

0023 

0203 

7240 


STA 


0024 

0204 

4332 


JMS DGET 

/GET (START LOC-1> FOR NEXT 

0025 

0205 

3367 


DC A DNS TAD 

/ TRANSFER 

0026 

0206 

4332 


JMS DGET 


0027 

0207 

3364 


DCA DNUSFW 

/NEXT TRANSFER INFO 

0028 

0210 

4332 


JMS DGET 


0029 

0211 

3366 


DCA DNSBLK 

/NEXT XFER START BLOCK 

0030 

0212 

4332 


JMS DGET 


0031 

0213 

3365 


DCA DNMBLK 

/NEXT -(# BLKS TO XFER) 

0032 

0214 

4761 


JMS I DRTRAR 

/ANYTHING IN MOTION? 

0033 

0215 

4336 


JMS DSSET 

/NO, SET UP THE SEARCH 

0034 

0216 

5600 


JMP I RW128 

/OK, NOW RETURN 

0035 






0036 

0217 

6772 

DLOOK, 

DTRB 

/LOOK FOR END ZONE 

0037 

0220 

7006 


RTL 


0038 

0221 

7710 


SPA CLA 


0039 

0222 

5323 


JMP DTURNX 

/IN END ZONEJ TURN AROUND 

0040 

0223 

6772 


DTRB 


0041 

0224 

7710 


SPA CLA 


0042 

0225 

5325 


JMP DER 

/ERROR FLAG 

0043 

0226 

6761 


DTRA 

/PUT DIRECTION BIT IN LINK 

0044 

0227 

7006 


RTL 


0045 

0230 

7006 


RTL 


0046 

0231 

7600 

D7600, 

7600 

/OPERATE 2 CLA 

0047 

0232 

1372 


TAD DTBLK 

/AT THE RIGHT BLOCK? 

0048 

0233 

7041 


CIA 


0049 

0234 

1366 


TAD DNSBLK 


0050 

0235 

7450 


SNA 


0051 

0236 

5245 


JMP DTFIND 

/YES, FOUND BLOCK, CHECK DIR 

0052 

0237 

7041 


CIA 


0053 

0240 

7420 


SNL 

/IF IN REV, GO 2 BLKS TOO FAR 


PAGE 1 
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0054 

0241 

0055 

0242 

0056 

0243 

0057 

0244 

0058 

0245 

0059 

0246 

0060 

0247 

0061 

0250 

0062 

0251 

0063 

0252 

0064 

0253 

0065 

0254 

0066 

0255 

0067 

0256 

0068 

0257 

0069 

0260 

0070 

0261 

0071 

0262 

0072 

0263 

0073 

0264 

0074 

0265 

0075 

0266 

0076 

0267 

0077 

0270 

0078 

0271 

0079 

0272 

0080 

0273 

0081 

0274 

0082 

0083 

0275 

0084 

0276 

0085 

0277 

0086 

0300 

0087 

0301 

0088 

0302 

0089 

0303 

0090 

0304 

0091 

0305 

0092 

0306 

0093 

0307 

0094 

0310 

0095 

0311 

0096 

0312 

0097 

0313 

0098 

0314 

0099 

0315 

0100 

0316 

0101 

0317 

0102 

0320 

0103 

0321 

0104 

0322 

0105 

0106 

0323 

0107 

0324 


7001 

7620 

1375 DTURN* 
5271 

7620 DTFIND* 

5271 

2037 

4762 DNSET* 

0070 

1364 

6774 

1364 
0376 
7041 

3370 

1365 

3371 
3365 
1367 

3755 

1364 
7006 
0373 
1373 

6764 DRXOR* 
1231 

3756 
5443 

5217 

6772 DINT* 

2372 

7710 

5325 

2371 

5271 

1365 
7650 
5323 
1364 
0376 
1370 
7640 
5321 

1366 
7041 
1372 
7650 
5250 

4336 DNOT* 
5443 

1340 DTURNX* 
5243 


I AC 

SNL CLA 
TAD D400 
JMP DRXOR 
SNL CLA 
JMP DRXOR 


ISZ 

MCOM 

JMS 

I DRTXAR 

70 

TAD 

DNUSFW 

DTLB 

TAD 

DNUSFW 

AND 

D7000 

CIA 

DCA 

Dl'UNIT 

TAD 

DNMBLK 

DCA 

DTMBLK 

DCA 

DNMBLK 

TAD 

DNSTAD 

DCA 

I DCAA 

TAD 

DNUSFW 

RTL 

AND 

D20 

TAD 

D20 

DTXA 

TAD 

D7600 

DCA 

I DWCA 

JMP 

I DIS 

JMP 

DLOOK 

DTRB 

ISZ 

DTBLK 

SPA 

CLA 

JMP 

DER 

ISZ 

DTMBLK 

JMP 

DRXOR 

TAD 

DNMBLK 

SNA 

CLA 

JMP 

DTURNX 

TAD 

DNUSFW 

AND 

D7000 

TAD 

DTUNIT 

SZA 

CLA 

JMP 

DNOT 

TAD 

DNSBLK 

CIA 

TAD 

DTBLK 

SNA 

CLA 

JMP 

DNSET 

JMS 

DSSET 

JMP 

I DIS 

TAD 

D200 

JMP 

DTURN 
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/CHANGE DIRECTION IF HERE 
/XOR TO A STATUS AND DISMIS 
/TEST MOTION 
/DON’T TURN YET 
/POINT INTERRUPT TO DATA 
/CLEAR CURRENT FUNCTION 

/SET UP A TRANSFER 
/SET FIELD 


/= -(# OF UNIT DOING XFER) 
/MOVE -# BLKS TO COUNTER 

/ & CLEAR OLD INFO (QUEUE OK) 

/SET UP XFER ADDRESS 
/READ OR WRITE? 

/BIT 9 = 1 FOR WRITE 

/MASK OFF BIT 

/READ = 20* WRITE = 40 

/SET WORD COUNT FOR 128(10) 

/EXIT 

/COME HERE THRU MCOM ON SEARCH 

/READ STATUS B 

/BUMP CURRENT BLOCK NUMBER 

/ERROR 

/COUNT BLOCKS* DONE? 

/NO* CONTINUE OPERATION 
/YES* IS SOMETHING IN QUEUE? 

/NO* STOP & EXIT 
/IS QUEUED UNIT NUMBER THE 
/ SAME AS THE UNIT WHICH 
/ JUST FINISHED XFER? 

/NO* STOP THIS & RESET SEARCH 
/OK* IS TAPE AT THE RIGHT 

/ BLOCK NOW? 

/YES* SET UP NEXT XFER 
/STOP LAST UNIT & SET UP 
/ NEXT SEARCH* THEN LEAVE 

/COMPLEMENT MOTION 
/ & DIRECTION BITS 
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0108 







0109 

0325 

7326 

DER, 

CLA STL RTL 

/= 2, DON’T CLEAR ERRORS 

0110 

0326 

47 62 


JMS I 

DRTXAR 

/STOP TAPE & XOR OUT INTERRUPT 

0111 

0327 

0206 


206 



0112 

0330 

6772 


DTRB 


/ERROR STATUS B 

0113 

0331 

5442 


JMP I 

DTERR 

/GO TO ERROR ROUTINE 

01 14 







0115 

0332 

0000 

DGET, 

0 

/PICK 

UP ARGUEMENTS 

0116 

0333 

1600 


TAD I 

RW 128 


0117 

0334 

2200 


ISZ RW 128 


0118 

0335 

5732 


JMP I 

DGET 


0119 







0120 

0336 

0000 

DSSET, 

0 

/SET UP SEARCH ON A UNIT 

0121 

0337 

4762 


JMS I 

DRTXAR 

/STOP ANYTHING IN MOTION 

0122 

0340 

0200 

D200, 

200 


' 

0123 

0341 

1357 


TAD DCINT 

/SET UP INTERRUPT POINTER 

0124 

0342 

3037 


DCA MCOM 


0125 

0343 

1364 


TAD DNUSFW 

/GET INFORMATION 

0126 

0344 

0231 


AND D7600 

/MASK OFF UNIT & DIRECTION 

0127 

0345 

1374 


TAD D214 

/ADD: GO, SEARCH, INTERRUPT 

0128 

0346 

6766 


DTCA 

DTXA 

/SET IT UP 

0129 

0347 

1375 


TAD D400 

/XOR THE DIRECTION BIT SO 

0130 

0350 

6764 


DTXA 


/ DNUSFW3 = 0 MEANS REVERSE 

0131 

0351 

6774 


DTLB 


/0 => FIELD 

0132 

0352 

1360 


TAD DBLK 

/SET UP SEARCH C.A. 

0133 

0353 

3755 


DCA I 

DCAA 


0134 

0354 

5736 


JMP I 

DSSET 


0135 







0136 

0355 

7755 

DCAA, 

7755 

/POINTER TO CURRENT ADDRESS 

0137 

0356 

7754 

DWCA, 

7754 

/POINTER TO WORD COUNT 

0138 

0357 

0275 

DC I NT, 

DINT- 

1 


0139 

0360 

0372 

DBLK, 

DTBLK 



0140 

0361 

0412 

DRTRAR, 

DTRAR 



0141 

0362 

0422 

DRTXAR, 

DTXAR 



0142 

0363 

0400 

DRW A IT, 

DWAIT 



0143 







0144 



/NEXT 4 

ARE NEXT INFO 

(QUEUE) 

0145 

0364 

0000 

DNUSFW, 

0 

/UNIT, 

SEARCH, FIELD & WRITE 

0146 

0365 

0000 

DNMBLK, 

0 

/ - (NO 

. BLKS) 

0147 

0366 

0000 

DNSBLK, 

0 

/START 

BLK 

0146 

0367 

0000 

DNS TAD, 

0 

/CORE 

A DDR 

0149 







0150 



/NEXT 3 

ARE CURRENT INFO 

0151 

0370 

0000 

DTUNIT, 

0 

/ -(UNIT NO.) 

0152 

0371 

0000 

DTMBLK, 

0 

/ -(NO 

. BLKS) COUNTER 

0153 

0372 

0000 

DTBLK, 

0 

/BLOCK 

NUMBER 

0154 

0373 

0020 

D20, 

20 



0155 

0374 

0214 

D214, 

214 



0156 

0375 

0400 

D400, 

400 



0157 

0376 

7000 

D7 000, 

7000 
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RW128 - SPECIAL DECTAPE ROUTINES 3(3 AUG 1970 
RECORD 2 


0001 

0002 

0003 

0004 

0005 

0006 

0400 

0000 

♦RW128+200 

/ROUTINE TO WAIT FOR EITHER NO MOTION FROM ANY 
/ DECTAPE CLINK = 1) OR FOR EITHER NO MOTION 
/ OR ROOM IN THE ROUTINE QUEUE (LINK ® 0). 

DWAIT* 0 

0007 

0401 

4212 

JMS DTRAR 

/IS ANYTHING IN MOTION? 

0008 

0402 

5600 

JMP I DWAIT 

/NO* EXIT 

0009 

0403 

7630 

SZL CLA 

/YES* WAIT FOR ALL DONE? 

0010 

0404 

5201 

JMP DWAIT+1 

/YES 

0011 

0405 

1611 

TAD I DNMBKI 

/NO* ROOM IN QUEUE? 

0012 

0406 

7640 

SZA CLA 


0013 

0407 

5201 

JMP DWAIT+1 

/NO* KEEP WAITING 

0014 

0410 

5600 

JMP I DWAIT 

/yes; EXIT 

0015 

0411 

0365 

DNMBKI* DNMBLK 


0016 

0017 

0412 

0000 

DTRAR* 0 /GET MOTION BIT FROM DT A REG 

0018 

0413 

6761 

DTRA 


0019 

0414 

6761 

DTRA 


0020 

0415 

0221 

AND DT200 

/MASK IT OFF 

0021 

0416 

7640 

SZA CLA 

/IS IT IN MOTION? 

0022 

0417 

2212 

ISZ DTRAR 

/YES* RETURN TO CALL+2 

0023 

0420 

5612 

JMP I DTRAR 

/ ELSE RETURN TO CALL+l 

0024 

0421 

0200 

DT200* 200 


0025 

0026 

0027 

0028 

0422 

0000 

/READ D.T. A REG* MASK 
/ XOR THE MASKED BITS* 
DTXAR* 0 

IT BY CCCALL+1)* THEN 
& RETURN TO CALL+2. 

0029 

0423 

6761 

DTRA 

/READ COR WITH AC) 

0030 

0424 

0622 

AND I DTXAR 

/AND IT 

0031 

0425 

2222 

ISZ DTXAR 


0032 

0426 

6764 

DTXA 

/XOR BITS 

0033 

0427 

5622 

JMP I DTXAR 
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0001 



/TEST ROUTINE FOR RW12S 


0002 






0003 



*1 



0004 

0001 

3010 


DCA AC 

/SAVE THE AC 

0005 

0002 

7004 


RAL 


0006 

0003 

5020 


JMP INTR 

/GO TO INTERRUPT ROUTINE 

0007 






0008 



*10 



0009 

0010 

0000 

AC# 

0 


0010 

0011 

0000 

LK# 

0 


0011 






0012 



*20 



0013 

0020 

3011 

INTR# 

DCA LK 

/SAVE THE LINK 

0014 

0021 

6771 


DTSF 

/DECTAPE INTERRUPT? 

0015 

0022 

7410 


SKP 


0016 

0023 

5437 


JMP I MCOM 

/YES 

0017 

0024 

6041 


TSF 

/PRINTER? 

0018 

0025 

5030 


JMP TTYI 


0019 

0026 

6042 


TCF 

/YES# CLEAR FLAG 

0020 

0027 

5443 


JMP I DIS 


0021 

0030 

6031 

TTYI# 

KSF 

/KEYBOARD? 

0022 

0031 

5034 


JMP HALT 


0023 

0032 

6032 


KCC 

/YES# CLEAR FLAG 

0024 

0033 

5443 


JMP I DIS 


0025 

0034 

7240 

HALT# 

STA 


0026 

0035 

7402 


HLT 

/DIE! 

0027 

0036 

5035 


JMP .-1 


0028 






0029 

0037 

0000 

MCOM# 

0 /ROUTINE LINKS 

0030 

0040 

0400 

DWAITI# 

DWAIT 


0031 

0041 

0200 

RW1281# 

RU128 


0032 

0042 

0035 

DTERR# 

HALT+1 /D.T. ERROR 

0033 






0034 

0043 

0044 

DIS# 

.+1 /POINTER TO DISMIS ROUTINE 

0035 

0044 

1011 


TAD LK 

/RESTORE EVERYTHING 

0036 

0045 

7110 


CLL RAR 


0037 

0046 

1010 


TAD AC 


0038 

0047 

6244 


RMF 


0039 

0050 

6001 


ION 


0040 

0051 

5400 


JMP I 0 


0041 






0042 



*100 



0043 






0044 

0100 

7604 

START# 

LAS 


0045 

0101 

3112 


DCA B1 

/SET B1 = SR 

0046 

0102 

7402 


HLT 


0047 

0103 

6001 


ION 

/TURN ON INTERRUPT 

0048 . 

0104 

7604 

LOOP# 

LAS 


0049 

0105 

7710 


SPA CLA 

/KEEP GOING? 

0050 

0106 

5130 


JMP STOP 

/NO 

0051 

0107 

4441 


JMS I RV1281 

/TEST THE ROUTINE 

0052 

0110 

1000 


BUF1 


0053 

0111 

1000 


1000 

/UNIT 1# READ 
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0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 


0112 

0000 

Bl, 

0 


0113 

7773 


-NBLKS 


0114 

1112 


TAD B1 

/SET UP B2 

0115 

1137 


TAD NBLK 


0116 

3122 


DCA B2 


0117 

4441 


JMS I RW1281 

/DO ANOTHER 

0120 

3000 


BUF2 


0121 

1000 


1000 


0122 

0000 

B2, 

0 


0123 

7773 


-NBLKS 


0124 

1122 


TAD B2 

/BUMP B1 

0125 

1137 


TAD NBLK 


0126 

3112 


DCA B1 


0127 

5104 


JMP LOOP 


0130 

7320 

STOP, 

STL CLA 

/WAIT FOR ALL DONE 

0131 

4440 


JMS I DWAITI 


0132 

6002 


IOF 


0133 

1112 


TAD B1 

/DISPLAY B1 

0134 

7402 


HLT 


0135 

7200 


CLA 


0136 

5100 


JMP START 




BUF1 = 

1000 




BUF2= 

3000 




NBLKS= 

5 


0137 

0005 

NBLK, 

NBLKS 




/PATCH 

TO DWAIT TO DISPLAY A WORD IN THE MQ 



* DNMBKI 

-2 


0407 

5232 


JMP PATCH 




* DTXAR+10 


0432 

7604 

PATCH, 

LAS 

/READ SR 

0433 

3222 


DCA DTXAR 


0434 

1622 


TAD I DTXAR 

/USE IT AS ADDRESS 

0435 

7421 


MQL 

/DISPLAY IN MQ 

0436 

7200 


CLA 


0437 

5201 


JMP DWAIT+1 
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